# print('my first r script')

#load the file rar_stats ignoring header data
perf_data <- read.table('./eaa-x00049851/collectDataWk8.sh',TRUE)
plot(perf_data[,'X.idle'],type ='b',xlab ='Time In Seconds',ylab ='%Utilization(U-i)')

U_i <- mean(100-perf_data[,'X.idle'])
d_i <- U_i/94

